home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 64 / 064.d81 / homegrown ii (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  194 lines
  1. 0 print"[147]":poke53274,.
  2. 1 poke55,0:poke56,60:clr
  3. 4 poke147,0:sys57812"routines v4",8,1:sys62631
  4. 5 poke147,0:sys57812"basic player.o",8,1:sys62631
  5. 6 poke147,0:sys57812"raster stuff.o",8,1:sys62631
  6. 7 sys57812"planthg.spr",8,0:poke780,0:poke781,0:poke782,60:sys65493
  7. 10 fr$="":la$="":ov$=""
  8. 11 ns=7:dim na$(ns),fi$(ns)
  9. 12 sa=780:sx=781:sy=782
  10. 13 fori=0to24:poke54272+i,0:next
  11. 14 su=51206:sd=51209
  12. 15 poke1020,10:poke1021,16:poke1022,12:poke1023,32
  13. 16 v=53248:pokev+39,9:for i=1to4:pokev+39+i,5:next
  14. 17 for i=5to7:pokev+39+i,2:next
  15. 18 for i=0to7:poke 2040+i,i+240:next
  16. 19 for i=0to7:reada:pokev+i*2,a:next
  17. 20 for i=0to7:reada:pokev+1+i*2,a:next
  18. 23 data 44,44,44,44,44,24,44,67
  19. 24 data 180,180,180,180,180,83,75,81
  20. 30 gosub1000
  21. 35 gosub1500
  22. 40 gosub2000
  23. 50 gosub3000
  24. 60 gosub100
  25. 64 print"[193]re you sure you want to quit? ([217]/[206])":poke198,.
  26. 66 a=peek(203):ifa<>25anda<>39then66
  27. 68 ifa=39thengosub2020:goto50
  28. 69 pokev+21,0
  29. 70 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  30. 72 ifer<>63thenprint"[147]":end
  31. 74 load"hello connect",8
  32. 100 printla$""
  33. 110 fora=1to5:print"                                    "
  34. 120 next:print"[145][145][145][145][145][145]"
  35. 130 return
  36. 1000 poke53280,0:poke53281,1
  37. 1010 print"[147]";
  38. 1012 fora=1to5:
  39. 1013 print"[144]                                        ";
  40. 1014 next
  41. 1020 fora=.to18:print"[144]                                        ";:next
  42. 1035 print"                                       [157][148] "
  43. 1040 fora=217to242:pokea,peek(a)or128:next
  44. 1050 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  45. 1060 print"[221][204][207][193][196][211][212][193][210] [208]resents[221][144][174]"
  46. 1070 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][144][221]"
  47. 1080 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  48. 1090 print"[144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  49. 1095 print"[144][221]                      [221][144][174]"
  50. 1100 fora=1to4
  51. 1110 print"[144][221]                      [221][144][221]"
  52. 1120 next
  53. 1130 print"[144][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][144][221]"
  54. 1135 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  55. 1140 print"[145][145][145][145][145][145] [200][207][205][197] [199][210][207][215][206] [201][201]  "
  56. 1150 print" [163][163][163][163][163][163][163][163][163][163][163][163][163] "
  57. 1160 print"   [194]y [196]ebby [195]ruz"
  58. 1170 print"                    "
  59. 1180 print"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  60. 1190 print"[221]        [195]opyright 1989        [221][144][174]"
  61. 1191 print"[150][221]                              [221][144][221]"
  62. 1192 print"[150][221]        [211]oftdisk, [201]nc.        [221][144][221]"
  63. 1200 print"[150][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][144][221]"
  64. 1210 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  65. 1220 poke v+21,31
  66. 1221 for z=1to800:next
  67. 1222 for i=1to21:pokev+3,180-i:next
  68. 1223 for i=1to21:pokev+5,180-i:pokev+3,159-i:next
  69. 1224 for i=1to21:pokev+7,180-i:pokev+5,159-i:pokev+3,138-i:next
  70. 1225 for i=1to21:pokev+9,180-i:pokev+7,159-i:pokev+5,138-i:pokev+3,117-i:next
  71. 1226 poke v+21,255
  72. 1227 fori=0to15:poke679+i,peek(v+i):next
  73. 1229 fora=1tons:read na$(a),fi$(a):next
  74. 1230 print"[149]  [208]ress [211][208][193][195][197] to continue [144]":poke198,.
  75. 1240 ifpeek(203)<>60then1240
  76. 1245 rem     poke v+21,0
  77. 1250 return
  78. 1500 print"[221]                 [221]"
  79. 1510 print"[221]  [200][207][205][197][160][199][210][207][215][206][160][201][201][160] [221][144][221]"
  80. 1520 print"[221]  [163][163][163][163][163][163][163][163][163][163][163][163][163]  [221][144][221]"
  81. 1530 print"[144]          [221]  [194]y [196]ebby [195]ruz  [221][144][221]         "
  82. 1535 mm=1263:pokemm,160:poke54272+mm,0
  83. 1540 print"[144]          [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][144][221]         "
  84. 1545 mm=mm+40:pokemm,160:poke54272+mm,0
  85. 1550 print"[144]           [144][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]         "
  86. 1555 mm=mm+40:pokemm,160:poke54272+mm,0
  87. 1560 print"[144]     [202][213][203][197][194][207][216] player by [205]ike [205]aynard   "
  88. 1565 mm=mm+40:pokemm,160:poke54272+mm,0
  89. 1570 print"[144] [146][129][146][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  90. 1575 mm=mm+40:pokemm,160:poke54272+mm,0
  91. 1578 mm=mm+40:pokemm,238:poke54272+mm,0
  92. 1580 fora=1to7
  93. 1590 print"[144] [129][146][221]                                    [221]"
  94. 1595 mm=mm+40:pokemm,221:poke54272+mm,0
  95. 1597 ifa=4thenprint"[145][144]--->"tab(34)"<---"
  96. 1600 next
  97. 1610 print"[144] [129][146][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  98. 1615 mm=mm+40:pokemm,221:poke54272+mm,0
  99. 1620 fora=1to5
  100. 1630 print"[144] [129][146][221]                                    [221]"
  101. 1635 mm=mm+40:pokemm,221:poke54272+mm,0
  102. 1640 next
  103. 1650 print"[144] [146][129][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  104. 1655 mm=mm+40:pokemm,253:poke54272+mm,0
  105. 1660 print"[144]  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  106. 1665 rem mm=mm+40:pokemm,125:poke54272+mm,0
  107. 1670 fora=217to242:pokea,peek(a)or128:next
  108. 1680 return
  109. 2000 printfr$;
  110. 2010 fora=1to7:printov$"[156]"na$(a):next
  111. 2015 se=4
  112. 2016 ls$=""
  113. 2020 gosub100:printla$"[213]se the [195][210][211][210] keys to scroll"
  114. 2025 print"the music up and down."
  115. 2030 print"[208]ress [[210][197][212][213][210][206]] to hear the"
  116. 2040 print"selected music."
  117. 2050 print"[198]1 - [208]lay all        [198]7 - [209]uit"
  118. 2060 return
  119. 3000 poke198,.:ab=.:pa=.
  120. 3005 b=peek(653):a=peek(203):ifa<>7anda<>2anda<>4anda<>3anda<>1then3000
  121. 3010 if((b=.)and(a=2))or((b)and(a=7))then gosub3100:goto3000
  122. 3020 if((b=.)and(a=7))or((b)and(a=2))then gosub3200:goto3000
  123. 3030 if(a=1)then4000
  124. 3040 if(a=4)then4100
  125. 3050 if(a=3)then return
  126. 3060 goto3000
  127. 3100 se=se-1:ifse=.thense=ns
  128. 3110 tp=se-3:iftp<1thentp=ns+tp
  129. 3120 syssd:poke648,216:syssd:poke648,4:printfr$ov$"[156]"na$(tp)
  130. 3130 return
  131. 3200 se=se+1:ifse=ns+1thense=1
  132. 3210 bo=se+3:ifbo>nsthenbo=bo-ns
  133. 3220 syssu:poke648,216:syssu:poke648,4:printla$ov$"[156]"na$(bo)
  134. 3230 return
  135. 4000 pl=se
  136. 4010 gosub6000
  137. 4040 goto3000
  138. 4097 :
  139. 4098 :
  140. 4100 mm=se:pa=-1:forzz=setons
  141. 4110 pl=zz
  142. 4120 gosub6000
  143. 4150 gosub3200
  144. 4155 if(ab)thengosub2020:goto3000
  145. 4160 next:if(mm=1)or(ab)thengosub2020:goto3000
  146. 4170 forzz=1tomm-1
  147. 4180 pl=zz
  148. 4190 gosub6000
  149. 4210 gosub6500
  150. 4220 gosub3200
  151. 4225 if(ab)thengosub2020:goto3000
  152. 4230 next:gosub2020:goto3000
  153. 6000 ok=1:he=.:ifls$=fi$(pl)then6540
  154. 6001 ls$=fi$(pl)
  155. 6003 gosub100:li$="[204]oading "+na$(pl):li=len(li$):ta=20-li/2
  156. 6005 print""tab(ta)li$:pokev+21,0
  157. 6010 sys57812"m."+fi$(pl),8,0:poke780,.:poke781,.:poke782,160:sys65493
  158. 6011 sys57812"